Shareware Super Platinum 8/Shareware Super Platinum 8.iso/mac/WIN_PRO/RABBIT.ZIP;1/SYSINFO.FRM

Visual Basic Form | 1993-06-21 | 16.7 KB | 602 lines

VERSION 2.00
Begin Form Form1
   BorderStyle     =   0  'None
   Caption         =   "Form1"
   Height          =   1320
   Icon            =   SYSINFO.FRX:0000
   Left            =   600
   LinkTopic       =   "Form1"
   Picture         =   SYSINFO.FRX:0302
   ScaleHeight     =   57
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   800
   Top             =   6315
   Width           =   12180
   Begin SSCommand kSetup
      BevelWidth      =   1
      Caption         =   "Setup"
      Font3D          =   3  'Inset w/light shading
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "Small Fonts"
      FontSize        =   6.75
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   510
      Left            =   10965
      TabIndex        =   13
      Top             =   60
      Width           =   510
   End
   Begin SSCommand k10
      BevelWidth      =   1
      Font3D          =   3  'Inset w/light shading
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "Small Fonts"
      FontSize        =   6.75
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   510
      Left            =   10110
      TabIndex        =   10
      Top             =   60
      Width           =   510
   End
   Begin SSCommand k9
      BevelWidth      =   1
      Font3D          =   3  'Inset w/light shading
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "Small Fonts"
      FontSize        =   6.75
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   510
      Left            =   9615
      TabIndex        =   9
      Top             =   60
      Width           =   510
   End
   Begin SSCommand k8
      BevelWidth      =   1
      Font3D          =   3  'Inset w/light shading
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "Small Fonts"
      FontSize        =   6.75
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   510
      Left            =   9120
      TabIndex        =   8
      Top             =   60
      Width           =   510
   End
   Begin SSCommand k7
      BevelWidth      =   1
      Font3D          =   3  'Inset w/light shading
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "Small Fonts"
      FontSize        =   6.75
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   510
      Left            =   8625
      TabIndex        =   7
      Top             =   60
      Width           =   510
   End
   Begin SSCommand kRabbit
      BevelWidth      =   1
      Height          =   510
      Left            =   11460
      Picture         =   SYSINFO.FRX:483C
      TabIndex        =   14
      Top             =   60
      Width           =   495
   End
   Begin SSCommand PutRight
      BevelWidth      =   1
      Height          =   510
      Left            =   10785
      Picture         =   SYSINFO.FRX:496A
      TabIndex        =   12
      Top             =   60
      Width           =   195
   End
   Begin SSCommand PutLeft
      BevelWidth      =   1
      Height          =   510
      Left            =   10605
      Picture         =   SYSINFO.FRX:4A00
      TabIndex        =   11
      Top             =   60
      Width           =   195
   End
   Begin SSCommand k6
      BevelWidth      =   1
      Height          =   510
      Left            =   8130
      TabIndex        =   6
      Top             =   60
      Width           =   510
   End
   Begin SSCommand k5
      BevelWidth      =   1
      Height          =   510
      Left            =   7635
      TabIndex        =   5
      Top             =   60
      Width           =   510
   End
   Begin SSCommand k4
      BevelWidth      =   1
      Height          =   510
      Left            =   7140
      TabIndex        =   4
      Top             =   60
      Width           =   510
   End
   Begin SSCommand k2
      BevelWidth      =   1
      Height          =   510
      Left            =   6150
      TabIndex        =   2
      Top             =   60
      Width           =   510
   End
   Begin SSCommand k1
      BevelWidth      =   1
      Font3D          =   3  'Inset w/light shading
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "Small Fonts"
      FontSize        =   6.75
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   510
      Left            =   5655
      TabIndex        =   1
      Top             =   60
      Width           =   510
   End
   Begin SSCommand k3
      BevelWidth      =   1
      Height          =   510
      Left            =   6645
      TabIndex        =   3
      Top             =   60
      Width           =   510
   End
   Begin Timer Timer1
      Enabled         =   0   'False
      Interval        =   5000
      Left            =   141
      Top             =   41
   End
   Begin Label Label11
      Alignment       =   2  'Center
      BorderStyle     =   1  'Fixed Single
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "Small Fonts"
      FontSize        =   6.75
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   270
      Left            =   4635
      TabIndex        =   24
      Top             =   300
      Width           =   945
   End
   Begin Label Label10
      Alignment       =   2  'Center
      BorderStyle     =   1  'Fixed Single
      Caption         =   "Mode:"
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "Small Fonts"
      FontSize        =   6.75
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      ForeColor       =   &H00FF0000&
      Height          =   255
      Left            =   4635
      TabIndex        =   23
      Top             =   60
      Width           =   945
   End
   Begin Label Label9
      Alignment       =   2  'Center
      BorderStyle     =   1  'Fixed Single
      Caption         =   "00:00"
      ForeColor       =   &H000000FF&
      Height          =   270
      Left            =   3705
      TabIndex        =   22
      Top             =   300
      Width           =   945
   End
   Begin Label Label8
      Alignment       =   2  'Center
      BorderStyle     =   1  'Fixed Single
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "Small Fonts"
      FontSize        =   6.75
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      ForeColor       =   &H000000FF&
      Height          =   255
      Left            =   3705
      TabIndex        =   21
      Top             =   60
      Width           =   945
   End
   Begin Label Label7
      Alignment       =   2  'Center
      BorderStyle     =   1  'Fixed Single
      Caption         =   "00%"
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "Small Fonts"
      FontSize        =   6.75
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   270
      Left            =   3135
      TabIndex        =   20
      Top             =   300
      Width           =   585
   End
   Begin Label Label6
      Alignment       =   2  'Center
      BorderStyle     =   1  'Fixed Single
      Caption         =   "00%"
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "Small Fonts"
      FontSize        =   6.75
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   270
      Left            =   2445
      TabIndex        =   19
      Top             =   300
      Width           =   705
   End
   Begin Label Label5
      Alignment       =   2  'Center
      BorderStyle     =   1  'Fixed Single
      Caption         =   "Free Resources:"
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "Small Fonts"
      FontSize        =   6.75
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      ForeColor       =   &H00FF0000&
      Height          =   255
      Left            =   2445
      TabIndex        =   18
      Top             =   60
      Width           =   1275
      WordWrap        =   -1  'True
   End
   Begin Label Label4
      Alignment       =   2  'Center
      BorderStyle     =   1  'Fixed Single
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   270
      Left            =   1185
      TabIndex        =   17
      Top             =   300
      Width           =   1275
   End
   Begin Label Label3
      Alignment       =   2  'Center
      BorderStyle     =   1  'Fixed Single
      Caption         =   "Largest free block:"
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "Small Fonts"
      FontSize        =   6.75
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      ForeColor       =   &H00FF0000&
      Height          =   255
      Left            =   1185
      TabIndex        =   16
      Top             =   60
      Width           =   1275
   End
   Begin Label Label2
      Alignment       =   2  'Center
      BackColor       =   &H00FFFFFF&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "Tot Free Mem:"
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "Small Fonts"
      FontSize        =   6.75
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      ForeColor       =   &H00FF0000&
      Height          =   255
      Left            =   60
      TabIndex        =   15
      Top             =   60
      Width           =   1140
   End
   Begin Label Label1
      Alignment       =   2  'Center
      BorderStyle     =   1  'Fixed Single
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   270
      Left            =   60
      TabIndex        =   0
      Top             =   300
      Width           =   1140
   End
Option Explicit
Declare Function SetWindowPos Lib "user" (ByVal h%, ByVal hb%, ByVal x%, ByVal y%, ByVal cx%, ByVal cy%, ByVal f%) As Integer
Declare Function GetWindowsDirectory Lib "Kernel" (ByVal lpBuffer As String, ByVal nSize As Integer) As Integer
Const swp_nomove = 2
Const swp_nosize = 1
Const flags = swp_nomove Or swp_nosize
Const hwnd_topmost = -1
Const hwnd_notopmost = -2
Dim OnTop As Integer
Sub Form_Load ()
Dim x As Integer
Dim temp As String
temp = Space$(144)
x = GetWindowsDirectory(ByVal temp, ByVal 144)
temp = Trim$(temp)
temp = Mid$(temp, 1, Len(temp) - 1)
InfoFilNamn = temp + "\rabbit.ini"
On Error GoTo NoInfoFile
Open InfoFilNamn For Input As #1
For KnappIndex = 0 To 19
Input #1, KnappPath(KnappIndex)
Input #1, KnappIcon(KnappIndex)
Input #1, OnTopvariabel
Close #1
KnappIndex = 0
ResumeHere:
Call ShowKnapp
KnappIndex = 0
form1.Width = 12000
form1.Height = 630
form1.Left = 0
form1.Top = screen.Height - form1.Height
'Dim x As Integer
Dim status&
form1.Show
If OnTopvariabel = True Then
x = SetWindowPos(form1.hWnd, hwnd_topmost, 0, 0, 0, 0, flags)
x = SetWindowPos(form1.hWnd, hwnd_notopmost, 0, 0, 0, 0, flags)
End If
status& = GetWinFlags()
If status& And WF_ENHANCED Then
label11.Caption = "Enhanced"
label11.Caption = "Standard"
End If
tell (True)
timer1.Enabled = True
Exit Sub
NoInfoFile:
Close
Open InfoFilNamn For Output As #1
For x = 0 To 19
Print #1, KnappPath(x)
Print #1, KnappIcon(x)
Print #1, True
Close
Resume ResumeHere
End Sub
Sub Form_QueryUnload (Cancel As Integer, UnloadMode As Integer)
Dim ff1!
form4.Show
form4.Refresh
ff1! = Timer + .2
Loop Until Timer > ff1!
End Sub
Sub Form_Unload (Cancel As Integer)
Dim ff1!
form4.Show
form4.Refresh
ff1! = Timer + .2
Loop Until Timer > ff1!
End Sub
Sub k1_Click ()
Dim z As Integer
On Error GoTo movon1
z = Shell(KnappPath(KnappIndex), 1)
Exit Sub
movon1:
Resume Next
End Sub
Sub k10_Click ()
Dim z As Integer
On Error GoTo movon10
z = Shell(KnappPath(KnappIndex + 9), 1)
movon10:
Resume Next
End Sub
Sub k2_Click ()
Dim z As Integer
On Error GoTo movon2
z = Shell(KnappPath(KnappIndex + 1), 1)
movon2:
Resume Next
End Sub
Sub k3_Click ()
Dim z As Integer
On Error GoTo movon3
z = Shell(KnappPath(KnappIndex + 2), 1)
movon3:
Resume Next
End Sub
Sub k4_Click ()
Dim z As Integer
On Error GoTo movon4
z = Shell(KnappPath(KnappIndex + 3), 1)
movon4:
Resume Next
End Sub
Sub k5_Click ()
Dim z As Integer
On Error GoTo movon5
z = Shell(KnappPath(KnappIndex + 4), 1)
movon5:
Resume Next
End Sub
Sub k6_Click ()
Dim z As Integer
On Error GoTo movon6
z = Shell(KnappPath(KnappIndex + 5), 1)
movon6:
Resume Next
End Sub
Sub k7_Click ()
Dim z As Integer
On Error GoTo movon7
z = Shell(KnappPath(KnappIndex + 6), 1)
movon7:
Resume Next
End Sub
Sub k8_Click ()
Dim z As Integer
On Error GoTo movon8
z = Shell(KnappPath(KnappIndex + 7), 1)
movon8:
Resume Next
End Sub
Sub k9_Click ()
Dim z As Integer
On Error GoTo movon9
z = Shell(KnappPath(KnappIndex + 8), 1)
movon9:
Resume Next
End Sub
Sub kRabbit_Click ()
If form1.Top = 0 Then
         form1.Top = 8370
     Else
         form1.Top = 0
End If
End Sub
Sub kSetup_Click ()
Dim x As Integer
form2.Show 1
Unload form2
Open InfoFilNamn For Input As #1
For KnappIndex = 0 To 19
Input #1, KnappPath(KnappIndex)
Input #1, KnappIcon(KnappIndex)
Input #1, OnTopvariabel
Close #1
KnappIndex = 0
If OnTopvariabel = True Then
x = SetWindowPos(form1.hWnd, hwnd_topmost, 0, 0, 0, 0, flags)
x = SetWindowPos(form1.hWnd, hwnd_notopmost, 0, 0, 0, 0, flags)
End If
Call ShowKnapp
KnappIndex = 0
End Sub
Sub Label1_Click ()
tell (True)
End Sub
Sub Label10_Click ()
tell (True)
End Sub
Sub Label11_Click ()
tell (True)
End Sub
Sub Label2_Click ()
tell (True)
End Sub
Sub Label3_Click ()
tell (True)
End Sub
Sub Label4_Click ()
tell (True)
End Sub
Sub Label5_Click ()
tell (True)
End Sub
Sub Label6_Click ()
tell (True)
End Sub
Sub Label7_Click ()
tell (True)
End Sub
Sub Label8_Click ()
tell (True)
End Sub
Sub Label9_Click ()
tell (True)
End Sub
Sub PutLeft_Click ()
If KnappIndex > 0 Then
   KnappIndex = KnappIndex - 10
Call ShowKnapp
End If
End Sub
Sub PutRight_Click ()
If KnappIndex < 9 Then
   KnappIndex = KnappIndex + 10
Call ShowKnapp
End If
End Sub
Sub ShowKnapp ()
Dim x As Integer
On Error GoTo noIcon
k1.Picture = LoadPicture(KnappIcon(0 + KnappIndex))
k2.Picture = LoadPicture(KnappIcon(1 + KnappIndex))
k3.Picture = LoadPicture(KnappIcon(2 + KnappIndex))
k4.Picture = LoadPicture(KnappIcon(3 + KnappIndex))
k5.Picture = LoadPicture(KnappIcon(4 + KnappIndex))
k6.Picture = LoadPicture(KnappIcon(5 + KnappIndex))
k7.Picture = LoadPicture(KnappIcon(6 + KnappIndex))
k8.Picture = LoadPicture(KnappIcon(7 + KnappIndex))
k9.Picture = LoadPicture(KnappIcon(8 + KnappIndex))
k10.Picture = LoadPicture(KnappIcon(9 + KnappIndex))
Exit Sub
noIcon:
Resume Next
End Sub
Sub tell (uppdate)
Dim memory&
Dim shi As SYSHEAPINFO
memory& = GetFreeSpace(0)
label1.Caption = Format$(memory&, "###,###,###,###")
If uppdate = True Then
memory& = GlobalCompact(&HFFFFFFFF)
label4.Caption = Format$(memory&, "###,###,###,###")
End If
shi.dwSize = Len(shi)
If SystemHeapInfo(shi) Then
     label6.Caption = "User " + Format$(shi.wUserFreePercent) + "%"
     label7.Caption = "GDI " + Format$(shi.wGDIFreePercent) + "%"
End If
label8 = Date$
label9 = Mid$(Time$, 1, 5)
End Sub
Sub Timer1_Timer ()
tell (False)
End Sub